RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE CENTXT ( ! 
IDENT = ‘'V04-000"! 
%BLISS32C 


ADDRESSING_MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
de 


vv 


BEGIN 


ESS EE SLES SITIES T TT TTT TE TTT TTP Trcic iii iii citi i tir iiiii icici iii iitit 


'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


: 
1 
1 
1 
1 * 
1 ® 
1 * 
1 * 
1 ® 
1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 'w TRANSFERRED. * 
% 
1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
& 
1 * 
1 * 
1 % 
1 ® 
1 * 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS 

i 
S atemantiathieneaentenseneennniedeoedmenneenidbanehannenennnesuaseeebensanta 
i 


NOT SUPPLIED BY DIGITAL. 


++ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: Centers and outputs a single Line of text. 


ENVIRONMENT: Transportable 
AUTHOR: R.W.Friday CREATION DATE: December, 1978 
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>; 43 04 1 ZSBTTL ‘Revision History’ 
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; 668 $f 1! Global edit of all modules. Updated module names, idents, 
: 4 BRe8 i copyright dates. Changed require files to BLISS library. 
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sf 


GLOBAL ROUTINE CENTXT (TEXT_PTR, TEXT_LENGTH) = 

144 

' FUNCTIONAL DESCRIPTION: 

Be ingine with the current position on the current record, 
CENTXT skips tabs and spaces until it encounters something 
else. If that ae FS else’ is the end-of-record 
indicator (';' or RINTES), it outputs the text supplied. 


If the B gain else’’ is not the end-of-record indicator, 
no text is output. 


FORMAL PARAMETERS: 


TEXT_PTR is a CHSPTR to the text to be centered and output. 
TEXT_LENGTH is the Length of the text. * 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


PERE E EE EF WWWWWWWNIWonon 
COON 


MEW OOD NAUE WN SO OD NOAUN EWN OO ODNAUE WO CONOUE WI 


MMOPOPIPOPPonofnorofnopororo9roropororonon 


Returns TRUE if the text was centered and output (i.e., 
end-of-record was found), otherwise FALSE. 


SIDE EFFECTS: None 


FUN "OC OBNAUESWN (OO ONOULS WNC ODNAUEWNS 


!Determine if text was given on the current record. 
RSKIPS (IRA); 'Skip spaces and tabs. 


IF .KHAR EQL RINTES ' 
— .KHAR EQL %C';' 


'No 1 5} the record. Output the specified text, centered. 
PTR = .TEXT_PTR; 


INCR_I FROM 1 TO .TEXT_LEN 
ENDCHR (CHSRCHAR_A™(PT 
f 


‘Normally, the text will fit between the margins, since 
‘this is not “user’’ text. However, just to be certain, 

‘if it can't be centered, leave it far to the left. 
TSF_ADJUST = MAX ((.SCA_RM = .SCA_LM - .TEXT_LENGTH)/2, 0); 
‘Output the Line containing the céntered texf. 


RETURN TRUE: 
ELSE 


POPIPIPIPIPININIPINININPYIPINOPOPONIPOPUNON) 


SN NNSA AAA AA AAAA MMMM 


GTH DO 
R)); 
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4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
BEGIN 
LOCAL 
PTR; 


AME WN OC OONOUE WR —OOONOu 


we 


vo4-000 


; Routine Size: 


Module Level Declarations 
RETURN FALSE 


107 bytes, 


END; 


000000006 
000000006 


000000006 
Fi 


50 000000006 


$8 
000000006 


Routine 


Bytes 


PSECT SUMMARY 
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SCODES + 0000 
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bed 


wT 
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AX-11 Bliss-32 Le abs 
RUNOFF ..SRCJCENTXT.BLI; 


— <n 


N 
04-000\ 
N 


TES, IRA, KHAR 
SCA, TSF, ENDCHR 
OUTNJ, RSKIPS 


SCODES,NOWRT,2 
CENTXT, Save R2,R3,R4 
KHAR, R4 


#1, RSKIPS 
KHAR, #RINTES 


KHAR, #59 
TEXT_PTR, PTR 


is 


(PTR)+, =(SP) 
#1, ENDCHR 
TEXT_LENGTH, I, 2$ 
TSF,~R1 

aSCA+116, aSCA+120, RO 
ape RO 


R 

RO, 40(R1) 
#0, OUTNJ 
#1, RO 


RO 


'End of module 
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SCODES 107 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ae wae SyNRG(G eoccecce Pages Processing 
File Total Loaded Percent Mapped Time 
.5255$DUA28: CSYSLIBIJXPORT.L32;1 378 0 0 252 00:00.1 
“$255$DUA28 : CRUNOFF . SRC JDSRLIB.L32;1 124 9 0 ay 00:00.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CENTXT/OBJ=OBJ$:CENTXT MSRC$:CENTXT/UPDATE=(ENHS: CENTXT) 


Size: 107 code + 0 data bytes 
Run Time: 00:03.3 

; Elapsed Time: 00:98. 

; Lines/CPU Min: 38 

; Lexemes/CPU-Min: 8566 

: ponety Used: 33 pages 

; Compilat 


ion Complete 
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